exception NothingToDo
val search : 'a -> ('a * int) list -> int
val convert : 'a array ref -> int -> 'a list -> unit
val histo : (float * float * float) array array -> int -> int -> int -> unit
val creat_blur_mtrx : int -> float -> float array array
val times : float -> float * float * float -> float * float * float
val add :
  float * float * float -> float * float * float -> float * float * float
val toint : float * float * float -> int * int * int
val tofloat : int * int * int -> float * float * float
val apply :
  float array array ->
  int ->
  int ->
  int ->
  int ->
  int ->
  (float * float * float) array array ref -> Sdlvideo.surface ref -> unit
val blur :
  (float * float * float) array array ->
  int -> int -> int -> float -> Sdlvideo.surface -> 'a -> unit
val get_dims : Sdlvideo.surface -> int * int
val execute : Sdlvideo.surface -> 'a -> bool -> unit
